function fdgword(docname,signwords,styleold,stylenew)
%使文档正文需要的部分顶格
%docname文件名
% '滚转异常概率定量分析与控制设计研究报告.doc'
%signwords需要空格的标志位
% {'其中','式中'};
%styleold正文样式
% '正文';
%stylenew顶格的正文样式
% '正文顶格';
try
    % 若Word服务器已经打开，返回其句柄Word
    Word = actxGetRunningServer('Word.Application');
catch
    % 创建一个Microsoft Word服务器，返回句柄Word
    Word = actxserver('Word.Application');
end
AAA=Word.Documents.Item(docname);
AAA.Activate;
pnum=AAA.Paragraphs.count;
for j=1:pnum
    mypara=AAA.Paragraphs.Item(j);
    mystr=mypara.Range.Text;
    ksign=0;
    for i=1:size(signwords,2)
        if strlength(mystr)>strlength(signwords{i})
            if strcmp(mystr(1:strlength(signwords{i})),signwords{i})
                ksign=1;%找到了关键字
                break
            end
        end
    end
    if ksign&contains(mypara.Range.Style.NameLocal,styleold)
        mypara.Range.Style=stylenew;%更改样式
    end

end
end
